Amiga Format CD 38

home *** CD-ROM | disk | FTP | other *** search

/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / shareware / 6-tris / 6-tris++.amos / 6-tris++.amosSourceCode next >

Wrap

AMOS Source Code | 1999-01-25 | 35KB | 1,320 lines

' 6-Tris++ - Six player tetris with bells and whistles by James Daniels '96/97 ' ' METHOD ROTATE DROP LEFT RIGHT ' KEYS 1 s z l-alt l-amiga ' KEYS 2 return r-shift r-amiga r-alt ' JOYS up or fire down left right ' ' To do: - Show where blocks will land when dropped ' - Make smoother ' - Make speed machine independent ' Tidy-up Trap Screen Close 0 Hide On Track Loop On Led Off Track Play 3 If Prg State=-1 Break Off End If Global TIMESLOADED,MULTIPLAYERGAMESPLAYED,TRADITIONALGAMESPLAYED,HISCORE If Exist("S:6-Tris.Dat") Open In 1,"S:6-Tris.Dat" Input #1,TIMESLOADED Input #1,MULTIPLAYERGAMESPLAYED Input #1,TRADITIONALGAMESPLAYED Input #1,HISCORE Close 1 Else TIMESLOADED=0 MULTIPLAYERGAMESPLAYED=0 TRADITIONALGAMESPLAYED=0 HISCORE=0 End If Inc TIMESLOADED ' Graphics setup Erase 1 Screen Open 1,640,64,4,Hires+Laced Screen Hide 1 Curs Off Flash Off Cls 0 Palette $0,$0,$0,$0 D1=Logbase(0) D2=Logbase(1) Screen Display 1,,139,, Unpack 11 To 0 Screen Hide 0 S=Logbase(0) Copy S,S+4320 To D1 Copy S+4800,S+9120 To D2 Screen Close 0 Screen Show 1 Wait Vbl Fade 4,$0,$FFF,$0,$FFF FINTIM=Timer+200 Unpack 10 To 0 Screen Hide 0 Global NNN NNN=0 _GT[249,187,276,192] For X=1 To 317 Step 4 _GT[X,181,X+3,186] Next For X=277 To 317 Step 4 _GT[X,187,X+3,192] Next _GT[0,0,54,123] _GT[97,71,134,76] _GT[97,77,135,106] _GT[55,107,104,121] _GT[137,0,279,102] _GT[280,0,316,64] _GT[280,64,319,124] _GT[105,107,147,124] _GT[148,108,226,123] For Y=124 To 158 Step 17 _GT[0,Y,129,Y+15] _GT[130,Y,259,Y+15] Next _GT[0,187,115,201] _GT[0,202,115,216] _GT[262,110,278,174] For X=55 To 90 Step 7 _GT[X,0,X+6,102] Next For X=97 To 127 Step 5 For Y=0 To 25 Step 5 _GT[X,Y,X+5,Y+5] Next Next For X=97 To 133 Step 4 _GT[X,65,X+3,70] Next For Y=33 To 58 Step 5 _GT[96,Y,136,Y+4] Next Dim _SCORE(5),_BLOCKS(999),_NEXTBLOCK(5),_BLOCKDATAX(6,3),_BLOCKDATAY(6,3),_CHECKPOINTSX(6,3,3),_CHECKPOINTSY(6,3,3),_DELAY(5) Dim _BLOCKAX(5),_BLOCKY(5),_BLOCKX(5),_BLOCKR(5),_BLOCKT(5),_BLOCKYS(5),_MODE(5),_REMOVINGLINE(5,3),_ALIVE(5),_PREVADD(5),_PREVROTATE(5),_LEVEL(5) Global _SCORE(),_NEXTBLOCK(),_BLOCKS(),_BLOCKDATAX(),_BLOCKDATAY(),_BLOCKAX(),_BLOCKY(),_BLOCKX(),_BLOCKR(),_BLOCKT(),_BLOCKYS(),_PREVADD(),_ALIVE(),ADX,ADY,_MODE,_DELAY _MODE=1 For Z=0 To 5 _DELAY(Z)=0 _LEVEL(Z)=0 _PREVROTATE=0 _SCORE(Z)=0 _NEXTBLOCK(Z)=-1 _MODE(Z)=0 _ALIVE(Z)=0 _PREVADD(Z)=0 Next 'alive: 1=alive, 0=dead (waiting to start), -1=dead (no restart) 'modes: 0=standard (falling block) >0=fading line (removingline(player,lineno)) <0=fading in block Restore BLOCKSDAT For A=0 To 6 For B=0 To 3 Read _BLOCKDATAX(A,B) Read _BLOCKDATAY(A,B) Next Next For Z=0 To 999 _BLOCKS(Z)=Rnd(6) Next Degree For B=0 To 6 Cls 0 For R=0 To 3 D#=(R*360)/16 For P=0 To 3 X=_BLOCKDATAX(B,P)+2 Y=_BLOCKDATAY(B,P)+2 If R>0 DIST#=Sqr((X*X)+(Y*Y)) If DIST#<>0 ANGLE#=Asin(-Y/DIST#) If X>0 If Y<0 ANGLE#=-180-ANGLE# Else ANGLE#=180-ANGLE# End If End If ANGLE#=(ANGLE#-D#)+180 End If NX#=(Cos(ANGLE#)*DIST#) NY#=(Sin(ANGLE#)*DIST#) If NX#-Int(NX#)=>0.5 NNX=NX#+1 Else NNX=NX# End If If NY#-Int(NY#)=>0.5 NNY=NY#+1 Else NNY=NY# End If Paste Bob 5+NNX,5+NNY+(17*R),119+(B*6)+R Paste Bob 22+NNY,5-NNX+(17*R),119+(B*6)+R Paste Bob 39-NNX,5-NNY+(17*R),119+(B*6)+R Paste Bob 56-NNY,5+NNX+(17*R),119+(B*6)+R Else Paste Bob 5+X,5+Y,119+(B*6) Paste Bob 22+Y,5-X,119+(B*6) Paste Bob 39-X,5-Y,119+(B*6) Paste Bob 56-Y,5+X,119+(B*6) _CHECKPOINTSX(B,0,P)=(5+X)+1 _CHECKPOINTSY(B,0,P)=(5+Y)+3 _CHECKPOINTSX(B,1,P)=(5-Y)+1 _CHECKPOINTSY(B,1,P)=(5+X)+3 _CHECKPOINTSX(B,2,P)=(5-X)+1 _CHECKPOINTSY(B,2,P)=(5-Y)+3 _CHECKPOINTSX(B,3,P)=(5+Y)+1 _CHECKPOINTSY(B,3,P)=(5-X)+3 End If Next Next For X=0 To 3 For Y=0 To 3 _GT[X*17,Y*17,(X*17)+16,(Y*17)+16] Next Next Next For B=0 To 6 Cls 0 For X=0 To 9 Paste Bob(X*4)-1,-1,119+(B*6) Next _GT[0,0,40,4] Next Make Mask Screen 1 While Timer<FINTIM Led Off Wait Vbl Wend Fade 4,$0,$0,$FFF,$FFF FINTIM=Timer+200 Screen 0 Cls 0 N=30 For Y=0 To 255 Step 2 For X=0 To 170 N=(Rnd(4)+29+N)/2 Extension_12_0394 X,Y,N Next Next _GT[0,0,171,256] Screen 1 While Timer<FINTIM Led Off Wait Vbl Wend Fade 4,$0,$0,$0,$0 FINTIM=Timer+60 Screen 0 Cls 0 N=0 For Y=0 To 132 Step 132 For X=1 To 117 Step 58 Paste Bob X,Y,93 Paste Bob X-1,Y,111+N Inc N Next Next Paste Bob 210,108,101 _UPDATEGAMEMODE Paste Bob 178,0,97 ADX=11 ADY=0 For Z=0 To 5 _DOSCORE[Z] _ADDNEWBLOCK[Z] Paste Bob ADX+2,ADY+15,98 Add ADX,58 If ADX>127 ADX=11 ADY=132 End If Next Paste Bob 276,126,1 While Timer<FINTIM Led Off Wait Vbl Wend Screen Close 1 Screen Open 1,320,256,32,Lowres Screen Hide 1 Flash Off Curs Off For Z=0 To 31 Colour Z,$0 Next Screen Copy 0 To 1 Double Buffer Autoback 0 Bob Update Off Screen Show 1 Fade 1 To -1 _CURRSCORE=0 Timer=0 SCY=42 SCYS=0 POKAY=1 PPOKAY=1 _DELAY=0 _COPYALL=0 _UPDATEHIGHSCORE=1 Screen 0 For Z=0 To 6 Step 2 Sprite Z,320+(Z*15),233,110 N$="S: I Y>YH(0,256) J I L Y=Y+3 ; I: L R0=V("+Right$(Str$(Z/2),1)+") ; I R0=0 J L ; L Y=YH(0,256-R0) ; L: P ; J S" Amal Z,N$ Amal On Z Next Clear Key Repeat Screen 0 For _CHECKMODE=1 To 3 If Key State(79+_CHECKMODE) _MODE=_CHECKMODE _UPDATEGAMEMODE _DELAY=2 _COPYALL=2 End If Next If Key State(83) TEMP#=MULTIPLAYERGAMESPLAYED+TRADITIONALGAMESPLAYED TEMP#=TEMP#/TIMESLOADED Fix 2 _MODE=4 _UPDATEGAMEMODE _DELAY=2 _COPYALL=2 Screen 1 Screen Copy 0,0,0,319,255 To 1,0,0 Ink 0,0,0 Bar 0,0 To 170,255 Paste Bob 0,0,294 Screen Swap Wait Vbl Screen Copy 0,0,0,319,255 To 1,0,0 Ink 0,0,0 Bar 0,0 To 170,255 Paste Bob 0,0,294 Screen Swap Wait Vbl Repeat Wait Vbl Until Key State(83)=0 Restore TYPEDAT Read LINE$ CX=-1 CY=4 ST=0 Repeat For _CHECKMODE=1 To 3 If Key State(79+_CHECKMODE) _MODE=_CHECKMODE End If Next If Key State(69) _FINISH End If Bob Clear If CX>0 Paste Bob CX*4,CY,Asc(Mid$(LINE$,CX,1))-30 End If Inc CX If CX>Len(LINE$) CX=1 Add CY,6 Read LINE$ If LINE$="END" Restore TYPEDAT End If If LINE$="BREAK" or LINE$="END" XIT=0 Clear Key Repeat ST=1-ST If ST=1 Bob 0,CX*4,CY,61 Else Bob Off 0 End If Bob Update Wait Vbl For _CHECKMODE=1 To 3 If Key State(79+_CHECKMODE) _MODE=_CHECKMODE XIT=1 End If Next If Key State(69) _FINISH End If If Inkey$<>"" XIT=1 End If If Fire(0) or Fire(1) or Peek($BFD000)<>255 XIT=1 End If Until XIT=1 Ink 0,0,0 Bar 0,0 To 170,255 Paste Bob 0,0,294 Screen Swap Wait Vbl Ink 0,0,0 Bar 0,0 To 170,255 Paste Bob 0,0,294 Screen Swap Wait Vbl CX=-1 CY=4 Read LINE$ End If End If If CX>0 Paste Bob CX*4,CY,Asc(Mid$(LINE$,CX,1))-30 End If ST=1-ST If ST=1 Bob 0,CX*4,CY,61 Else Bob Off 0 End If Bob Draw Screen Swap Wait Vbl Until _MODE<>4 Screen 1 Bob Off 0 Bob Update Wait Vbl Bob Update Wait Vbl Screen Copy 0,0,0,319,255 To 1,0,0 Screen Swap Wait Vbl Screen Copy 0,0,0,319,255 To 1,0,0 Screen Swap Wait Vbl Screen 0 _UPDATEGAMEMODE End If If _DELAY>0 Ink 0,0,0 NADX=11 NADY=0 _BLOCK=Rnd(999) For Z=0 To 5 _LEVEL(Z)=0 If _MODE<>1 _NEXTBLOCK(Z)=_BLOCK End If _ALIVE(Z)=0 Bar NADX,NADY To NADX+39,NADY+99 Paste Bob NADX+2,NADY+15,98 Add NADX,58 If NADX>127 NADX=11 NADY=132 End If Next If _DELAY=1 Wait 100 End If _DELAY=0 POKAY=1 PPOKAY=1 Timer=0 End If Add _CURRSCORE,1,0 To 5 _DOSCORE[_CURRSCORE] TIM=5-(Timer/50) ' Read in all the control stuff. Note that you MUST read the fire buttons before the directions. Odd but true. KK=Key Shift _NDDIR=Peek($BFD000) _DDIR=Peek($BFE101) ADX=11 ADY=0 For Z=0 To 5 If _MODE=1 or(TIM<0 and POKAY=0) If _ALIVE(Z)=1 If _MODE(Z)=0 CB=_NEXTBLOCK(Z) Add CB,-1,0 To 999 _HORIZ=0 _DROP=0 _ROTATE=0 If Z=0 If Jleft(1) Dec _HORIZ End If If Jright(1) Inc _HORIZ End If If Jdown(1) _DROP=1 End If If Fire(1) or Jup(1) _ROTATE=1 End If End If If Z=1 If Jleft(0) Dec _HORIZ End If If Jright(0) Inc _HORIZ End If If Jdown(0) _DROP=1 End If If Fire(0) or Jup(0) _ROTATE=1 End If End If If Z=2 If Btst(2,_DDIR)=0 Dec _HORIZ End If If Btst(3,_DDIR)=0 Inc _HORIZ End If If Btst(1,_DDIR)=0 _DROP=1 End If If Btst(0,_DDIR)=0 or Btst(2,_NDDIR)=0 _ROTATE=1 End If End If If Z=3 If Btst(6,_DDIR)=0 Dec _HORIZ End If If Btst(7,_DDIR)=0 Inc _HORIZ End If If Btst(5,_DDIR)=0 _DROP=1 End If If Btst(4,_DDIR)=0 or Btst(0,_NDDIR)=0 _ROTATE=1 End If End If If Z=4 If Btst(4,KK) Dec _HORIZ End If If Btst(6,KK) Inc _HORIZ End If If Key State(49) _DROP=1 End If If Key State(33) _ROTATE=1 End If End If If Z=5 If Btst(7,KK) Dec _HORIZ End If If Btst(5,KK) Inc _HORIZ End If If Btst(1,KK) _DROP=1 End If If Key State(68) _ROTATE=1 End If End If If _BLOCKAX(Z)=_BLOCKX(Z) If _HORIZ<>0 If _DELAY(Z)=0 or _DELAY(Z)>2 TB=_BLOCKAX(Z) Add TB,_HORIZ*4 PASSED=1 For N=0 To 3 X=_CHECKPOINTSX(_BLOCKS(CB),_BLOCKR(Z),N)+TB Y=_CHECKPOINTSY(_BLOCKS(CB),_BLOCKR(Z),N)+(_BLOCKY(Z)/8) If Extension_12_0470(ADX+X,ADY+Y)>0 PASSED=0 End If If X<0 PASSED=0 End If If X>39 PASSED=0 End If Next If PASSED=1 _BLOCKAX(Z)=TB End If End If Inc _DELAY(Z) Else _DELAY(Z)=0 End If Else Add _BLOCKX(Z),Min(2,Max(-2,_BLOCKAX(Z)-_BLOCKX(Z))) End If If _ROTATE=0 _PREVROTATE(Z)=0 End If If _BLOCKT(Z)=0 If _ROTATE=1 and _PREVROTATE(Z)=0 _PREVROTATE(Z)=1 TB=_BLOCKR(Z) Add TB,1,0 To 3 PASSED=1 For N=0 To 3 X=_CHECKPOINTSX(_BLOCKS(CB),TB,N)+_BLOCKAX(Z) Y=_CHECKPOINTSY(_BLOCKS(CB),TB,N)+(_BLOCKY(Z)/8) If Extension_12_0470(ADX+X,ADY+Y)>0 PASSED=0 End If If X<0 PASSED=0 End If If X>39 PASSED=0 End If Next If PASSED=1 _BLOCKT(Z)=1 _BLOCKR(Z)=TB End If End If Else Add _BLOCKT(Z),1,0 To 3 End If If _DROP=1 If _BLOCKYS(Z)<24 Add _BLOCKYS(Z),6 End If Else _BLOCKYS(Z)=1 If _MODE=1 _BLOCKYS(Z)=Min(24,(_LEVEL(Z)/15)+1) End If End If FAILED=0 For N=0 To 3 X=_CHECKPOINTSX(_BLOCKS(CB),_BLOCKR(Z),N)+_BLOCKAX(Z) Y=_CHECKPOINTSY(_BLOCKS(CB),_BLOCKR(Z),N)+(_BLOCKY(Z)/8) If Extension_12_0470(ADX+X+1,ADY+Y+4)>0 FAILED=1 End If Next If FAILED=1 For N=0 To 3 X=4*Int((_CHECKPOINTSX(_BLOCKS(CB),_BLOCKR(Z),N)+_BLOCKAX(Z))/4) Y=4*Int((_CHECKPOINTSY(_BLOCKS(CB),_BLOCKR(Z),N)+(_BLOCKY(Z)/8))/4) Paste Bob X+ADX-1,Y+ADY-1,119+(_BLOCKS(CB)*6) Next N=0 For Y=0 To 24 FULLLINE=1 For X=0 To 9 P= Extension_12_0470((X*4)+ADX,(Y*4)+ADY) If P=0 FULLLINE=0 End If Next If FULLLINE=1 _REMOVINGLINE(Z,N)=Y Inc N End If Next If N>0 If N=1 FF=5 End If If N=2 FF=15 End If If N=3 FF=30 End If If N=4 FF=60 End If Add _SCORE(Z),FF+2 If _MODE=1 If _SCORE(Z)>HISCORE HISCORE=_SCORE(Z) _UPDATEHIGHSCORE=1 End If End If If N>2 SCY=42 SCYS=(N-2)*3 End If If _MODE=2 NN=N-1 If NN>0 NADX=11 NADY=0 For T=0 To 5 If T<>Z If _ALIVE(T)=1 Add _BLOCKY(T),-NN*32 _BLOCKY(T)=Max(_BLOCKY(T),-4) Screen Copy 0,NADX,NADY+(NN*4),NADX+40,NADY+100 To 0,NADX,NADY Ink 0,0,0 Bar NADX,NADY+100-(NN*4) To NADX+39,NADY+99 For A=1 To NN Paste Bob NADX,NADY-(A*4)+100,287+Z R=Rnd(9) Bar NADX+(4*R),NADY-(A*4)+100 To NADX+(4*R)+3,NADY-(A*4)+103 Next For A=0 To 3 Add _REMOVINGLINE(T,A),-NN Next End If End If Add NADX,58 If NADX>127 NADX=11 NADY=132 End If Next End If End If If _MODE=3 NN=N-1 If NN>0 NXT=Z Repeat Add NXT,1,0 To 5 Until _ALIVE(NXT)=1 PREV=Z Repeat Add PREV,-1,0 To 5 Until _ALIVE(PREV)=1 NADX=11 NADY=0 For T=0 To 5 If T=NXT or T=PREV If _ALIVE(T)=1 Add _BLOCKY(T),-NN*32 _BLOCKY(T)=Max(_BLOCKY(T),-4) Screen Copy 0,NADX,NADY+(NN*4),NADX+40,NADY+100 To 0,NADX,NADY Ink 0,0,0 Bar NADX,NADY+100-(NN*4) To NADX+39,NADY+99 For A=1 To NN Paste Bob NADX,NADY-(A*4)+100,287+Z R=Rnd(9) Bar NADX+(4*R),NADY-(A*4)+100 To NADX+(4*R)+3,NADY-(A*4)+103 Next For A=0 To 3 Add _REMOVINGLINE(T,A),-NN Next End If End If Add NADX,58 If NADX>127 NADX=11 NADY=132 End If Next End If End If While N<4 _REMOVINGLINE(Z,N)=-1 Inc N Wend _MODE(Z)=1 _PREVADD(Z)=0 Else Inc _SCORE(Z) If _MODE=1 If _SCORE(Z)>HISCORE HISCORE=_SCORE(Z) _UPDATEHIGHSCORE=1 End If End If Inc _LEVEL(Z) _ADDNEWBLOCK[Z] End If Else _PREVADD(Z)=0 End If Add _BLOCKY(Z),_BLOCKYS(Z) Else If _MODE(Z)>0 For N=0 To 3 Y=_REMOVINGLINE(Z,N) If Y>-1 Ink 0,0,0 Bar ADX,ADY+(Y*4) To ADX+39,ADY+(Y*4)+3 If _MODE(Z)>6 Screen Copy 0,ADX,ADY,ADX+40,ADY+(Y*4) To 0,ADX,ADY+4 Bar ADX,ADY To ADX+39,ADY+3 Else Paste Bob ADX,ADY+(Y*4),168+_MODE(Z) End If Else N=4 End If Next If _MODE(Z)>6 _ADDNEWBLOCK[Z] _MODE(Z)=0 Else Inc _MODE(Z) End If End If End If Else If _MODE=1 _START=0 If Z=0 If Jdown(1) _START=1 End If End If If Z=1 If Jdown(0) _START=1 End If End If If Z=2 If Btst(1,_DDIR)=0 _START=1 End If End If If Z=3 If Btst(5,_DDIR)=0 _START=1 End If End If If Z=4 If Key State(49) _START=1 End If End If If Z=5 If Btst(1,KK) _START=1 End If End If If _START=1 Inc TRADITIONALGAMESPLAYED Ink 0,0,0 Bar ADX,ADY-4 To ADX+39,ADY+99 _LEVEL(Z)=0 _SCORE(Z)=0 _MODE(Z)=0 _ALIVE(Z)=1 _PREVADD(Z)=0 _ADDNEWBLOCK[Z] End If End If End If Else Ink 0,0,0 If TIM=>0 If _ALIVE(Z)=0 _DROP=0 If Z=0 If Jdown(1) _DROP=1 End If End If If Z=1 If Jdown(0) _DROP=1 End If End If If Z=2 If Btst(1,_DDIR)=0 _DROP=1 End If End If If Z=3 If Btst(5,_DDIR)=0 _DROP=1 End If End If If Z=4 If Key State(49) _DROP=1 End If End If If Z=5 If Btst(1,KK) _DROP=1 End If End If Bar ADX+36,ADY+94 To ADX+39,ADY+99 Paste Bob ADX+1,ADY+88,94 Paste Bob ADX+36,ADY+94,159+TIM If _DROP=1 _ALIVE(Z)=1 _SCORE(Z)=0 _MODE(Z)=0 _PREVADD(Z)=0 _ADDNEWBLOCK[Z] Bar ADX,ADY-4 To ADX+39,ADY+99 Paste Bob ADX+2,ADY+40,100 End If End If Else If PPOKAY<>0 PPOKAY=0 Inc MULTIPLAYERGAMESPLAYED End If Bar ADX,ADY-4 To ADX+39,ADY+99 If _ALIVE(Z)=0 Paste Bob ADX+1,ADY+30,95 End If End If End If Add ADX,58 If ADX>127 ADX=11 ADY=132 End If Next If _MODE<>1 NUMALIVE=0 For Z=0 To 5 If _ALIVE(Z)=1 Inc NUMALIVE End If Next If NUMALIVE<=1 Timer=0 End If If NUMALIVE=6 Timer=300 End If End If If _UPDATEHIGHSCORE=1 _UPDATEHIGHSCORE=0 _COPYALL=2 Ink 0,0,0 Bar 279,131 To 299,137 N$=Str$(HISCORE) N$=Right$(N$,Len(N$)-1) N$=String$("0",5-Len(N$))+N$ For Z=0 To 4 A$=Mid$(N$,Z+1,1) Paste Bob 280+(Z*4),132,111+Asc(A$) Next End If Screen Copy 0,0,0,168,255 To 1,0,0 If _COPYALL>0 Dec _COPYALL Screen Copy 0,180,125,319,184 To 1,180,125 End If Screen 1 ' Do pause If Key State(95) TTTT=Timer Screen Swap Wait Vbl If _COPYALL>0 Dec _COPYALL Screen Copy 0,0,0,319,255 To 1,0,0 Else Screen Copy 0,0,0,168,255 To 1,0,0 End If R=135 Screen Swap Wait Vbl Repeat Multi Wait Until Key State(95)=0 Repeat Add R,(Cos(R/2)*2)+3,0 To 719 N=0 T=(Sin(R*2)*30)+50 X=(Sin(R)*60)+140 Y=(Sin(R/2)*40)+120 For AD=0 To 359 Step 72 D=R+AD Bob N,(Sin(D)*T)+X,(Cos(D)*T)+Y,96 Inc N Next Bob Update Wait Vbl Until Key State(95) For Z=0 To N-1 Bob Off Z Next Bob Update Wait Vbl Bob Update Wait Vbl Repeat Multi Wait Until Key State(95)=0 Timer=TTTT End If ' Do screen shake Screen Display 1,,SCY,, Add SCY,SCYS If SCY>42 Dec SCYS End If If SCY<42 Inc SCYS End If If SCY=42 If SCYS>0 Dec SCYS End If If SCYS<0 Inc SCYS End If End If ' Do falling blocks ADX=11 ADY=0 For Z=0 To 5 If _MODE=1 or POKAY=0 If _ALIVE(Z)=1 If _MODE(Z)=0 CB=_NEXTBLOCK(Z) Add CB,-1,0 To 999 If _BLOCKT(Z)=0 TT=16-(_BLOCKR(Z)*4) If TT>15 Add TT,-16 End If Paste Bob _BLOCKX(Z)+ADX,(_BLOCKY(Z)/8)+ADY,175+(_BLOCKS(CB)*16)+TT Else TT=((_BLOCKR(Z)-1)*4)+_BLOCKT(Z) If TT<0 Add TT,16 End If Paste Bob _BLOCKX(Z)+ADX,(_BLOCKY(Z)/8)+ADY,175+(_BLOCKS(CB)*16)+(16-TT) End If End If End If End If Add ADX,58 If ADX>127 ADX=11 ADY=132 End If Next Screen Swap Wait Vbl Led Off POKAY=PPOKAY Until Key State(69) _FINISH Procedure _GT[X1,Y1,X2,Y2] Inc NNN Get Bob 0,NNN,X1,Y1 To X2,Y2 End Proc Procedure _DOSCORE[PL] X=PL Y=0 If X>2 Add X,-3 Y=1 End If X=X*58 Y=Y*132 X=X+31 Y=Y+113 Ink 0,0,0 Bar X-1,Y-1 To X+19,Y+5 N$=Str$(_SCORE(PL)) N$=Right$(N$,Len(N$)-1) N$=String$("0",5-Len(N$))+N$ For Z=0 To 4 A$=Mid$(N$,Z+1,1) Paste Bob X+(Z*4),Y,111+Asc(A$) Next End Proc Procedure _UPDATENEXTBLOCK[PL] Add _NEXTBLOCK(PL),1,0 To 999 X=PL Y=0 If X>2 Add X,-3 Y=1 End If X=X*58 Y=Y*132 X=X+12 Y=Y+114 Ink 0,0,0 Bar X-7,Y-3 To X+8,Y+4 For Z=0 To 3 Paste Bob X+_BLOCKDATAX(_BLOCKS(_NEXTBLOCK(PL)),Z),Y+_BLOCKDATAY(_BLOCKS(_NEXTBLOCK(PL)),Z),119+(_BLOCKS(_NEXTBLOCK(PL))*6) Next End Proc Procedure _ADDNEWBLOCK[PL] If _PREVADD(PL)=1 _ALIVE(PL)=-1 If _MODE<>1 NUMALIVE=0 NADX=11 NADY=0 For Z=0 To 5 If _ALIVE(Z)=1 Inc NUMALIVE NNADX=NADX NNADY=NADY WHOALIVE=Z End If Add NADX,58 If NADX>127 NADX=11 NADY=132 End If Next If NUMALIVE=1 Paste Bob NNADX+1,NNADY+18,99 _DELAY=1 For Z=0 To 5 Bob Off Z Next End If End If If _MODE=1 Paste Bob ADX+1,ADY+1,95 Paste Bob ADX+2,ADY+35,98 Else Paste Bob ADX+1,ADY+32,95 End If Else _BLOCKX(PL)=12 _BLOCKAX(PL)=12 _BLOCKR(PL)=0 _BLOCKT(PL)=0 _BLOCKY(PL)=-32 _BLOCKYS(PL)=0 _PREVADD(PL)=1 _UPDATENEXTBLOCK[PL] End If End Proc Procedure _UPDATEGAMEMODE N=0 For Y=125 To 170 Step 15 Inc N Paste Bob 180,Y,(N*2)+101+(N<>_MODE) Next End Proc Procedure _FINISH Fade 1 Wait 15 If Extension_18_0248("S:")=2 If Exist("S:6-Tris.Dat") Kill "S:6-Tris.Dat" End If Open Out 1,"S:6-Tris.Dat" Print #1,TIMESLOADED Print #1,MULTIPLAYERGAMESPLAYED Print #1,TRADITIONALGAMESPLAYED Print #1,HISCORE Close 1 End If Amal Off Sprite Off Screen Close 0 Screen Close 1 Erase 1 Track Stop End End Proc TYPEDAT: Data " welcome to >=six^tris=> by james daniels" Data " THE ONE AND only SIX PLAYER" Data " TETRIS GAME IN THE world" Data " (AND ITS FREEWARE TOO!)" Data "&how to play]" Data " " Data " IT'S tetris. HOWEVER, IT DOES HAVE A FEW" Data " 'UNIQUE' FEATURES, SUCH AS, OF COURSE," Data " THE SIX PLAYER MODE. IN FACT, THERE ARE" Data " TWO SIX PLAYER MODES; AS WELL AS A SIX-" Data " GAMES-AT-ONCE-BUT-NOT-AGAINST-EACH-OTHER" Data " SCENARIO. HERE IS A RUN-DOWN OF EACH OF" Data " THE GAME TYPES:" Data " " Data " *separate - SIX SEPARATE GAMES OF TETRIS" Data " IE. WHAT ONE PLAYER DOES HAS NO EFFECT" Data " ON THE OTHER PLAYERS." Data " " Data " *all against all - WHEN ANY PLAYER GETS" Data " TWO LINES OR MORE, THE LINES ARE PASSED" Data " TO ALL PLAYERS. NOTE THAT ONE LESS LINE" Data " THAN THE NUMBER REALLY COMPLETED WILL" Data " ACTUALLY APPEAR ON THE OPPONENT'S" Data " SCREEN. IE. GETTING FOUR LINES WILL" Data " ONLY RESULT IN THE OTHER PLAYERS" Data " RECEIVING 3 LINES. WHEN THE LINES ARE" Data " PASSED, THEY WILL APPEAR IN THE COLOUR" Data " OF THE PLAYER THAT SENT THEM." Data " " Data " *against locals - PROBABLY THE BEST" Data " METHOD OF PLAYING. WHEN A PLAYER GETS A" Data " LINE, IT IS PASSED TO THOSE TO EITHER" Data " SIDE. IE. IF THE PLAYER WHO GOT THE" Data " LINES IS PLAYER 3, THE PLAYERS 2 AND 4" Data " WILL RECEIVE THEM. IF PLAYER 1 GETS" Data " SOME LINES, THEN PLAYERS 2 AND 6 WILL" Data " RECEIVE THEM. NOTE THAT THESE LINES" Data " WILL BE REDUCED IN NUMBER AS DESCRIBED" Data " IN all against all." Data " " Data "\\\\\\\\\\\PRESS SOMETHING TO CONTINUE..." Data "BREAK" Data "&controls]" Data " " Data " THE CONTROL METHODS USED BY EACH OF THE" Data " PLAYERS ARE AS FOLLOWS:" Data " " Data " PLAYER 1 % left joystick" Data " PLAYER 2 _ right joystick" Data " PLAYER 3 @ left joystick (ADAPTOR)" Data " PLAYER 4 $ right joystick (ADAPTOR)" Data " PLAYER 5 ` keyboard one" Data " PLAYER 6 * keyboard two" Data " " Data " THE WAY IN WHICH YOU SHOULD USE THESE" Data " CONTROLS IS EXPLAINED BELOW:" Data " " Data " method rotate drop left right" Data " KEYS 1 S Z L-ALT L-AMIGA" Data " KEYS 2 RETURN R-SHIFT R-AMIGA R-ALT" Data " JOYS UP/FIRE DOWN LEFT RIGHT" Data " " Data " " Data "&other keys]" Data " " Data " (ESC)APE - quits game" Data " HELP - pauses game" Data " press again to resume" Data " " Data " " Data "&contact the author]" Data " " Data " address] 54 KNOWLES AVENUE, CROWTHORNE," Data " BERKS, RG45 6DU, ENGLAND." Data " e^mail] J.R.DANIELS<WARWICK.AC.UK" Data " www] HTTP://WWW.WARWICK.AC.UK/#CSUAW" Data " " Data " (TO SEND BUG REPORTS, IDEAS AND" Data " BEST SCORES THAT BEAT MINE!)" Data " " Data " IN SEPERATE MODE, MY TOP SCORE IS _1883_" Data " " Data "\\\\\\\\\\\PRESS SOMETHING TO CONTINUE..." Data "BREAK" Data "&credits]" Data " " Data " coding % JAMES DANIELS % idea % ALEXEY" Data " PAJITNOV % graphics % JAMES DANIELS %" Data " music % BIT ARTS % playtesters % CLAIRE" Data " BERRETT % JAMES DANIELS % BERNARD" Data " L'ALLIER % CHRISTOPHER DANIELS % MATTHEW" Data " AGAR % PAUL L'ALLIER % JONATHAN HUGHES %" Data " GERALD YUEN % RATTI MARIO % BECKER" Data " JACQUES % MAX ROBINSON % TOBY HIGSON %" Data " TIM SPENCER % DARREN BISHOP % IAN FALCON" Data " MARKY BRETT % CAROLINE KLEMPKA % ANDREW" Data " DISTON % SOPHIE PARKER % CLAIRE MORELAND" Data " " Data "&about the game]" Data " " Data " THIS PROGRAM WAS WRITTEN USING:" Data " *AMOS PROFESSIONAL V2" Data " *DPAINT IV AGA" Data " *OCTAMED V5.04" Data " *SOUNDS TERRIFIC CD" Data " " Data " THE MACHINE IT WAS WRITTEN ON LOOKS LIKE" Data " THIS:" Data " @ A1200/040/25MHZ @ 6MB RAM @ 1.8GB HD @" Data " @ AIWA 2X CD-ROM @ EXTERNAL DISK DRIVE @" Data " @ 200 W PSU @ MICROVITEC 1438 MONITOR @" Data " @ 560 DPI MOUSE @ SQUIRREL SCSI I'FACE @" Data " " Data " " Data "&statistics]" Data " " Data " TIMES LOADED -"+Str$(TIMESLOADED) Data " MULTIPLAYER GAMES PLAYED -"+Str$(MULTIPLAYERGAMESPLAYED) Data " TRADITIONAL GAMES PLAYED -"+Str$(TRADITIONALGAMESPLAYED) Data " AVERAGE GAMES PER LOAD -"+Str$(TEMP#) Data " " Data " " Data " " Data "\\\\\\\\\\\PRESS SOMETHING TO CONTINUE..." Rem***12345678901234567890123456789012345678901* Data "END" BLOCKSDAT: Data -8,-4,-4,-4,0,-4,4,-4 Data -8,-4,-4,-4,-4,0,0,0 Data -4,-4,0,-4,0,0,-4,0 Data -8,0,-4,0,-4,-4,0,-4 Data -8,0,-8,-4,-4,-4,0,-4 Data -8,-4,-4,-4,0,-4,0,0 Data -8,0,-4,0,0,0,-4,-4 ' **** ** ** ** *** *** * ' ** ** ** * * ***